* 5F 01 D 0048E COLOR * 5F 02 D 0049E CSIZE * 5F 03 D 0044E DRAW * 5F 04 D 004AE HOME * 5F 05 D 004E8 LABEL * 5F 06 D 00545 LDIR * 5F 07 D 00555 LTYPE * 5F 08 D 0043E MOVE * 5F 09 D 00565 PLOTTER * 5F 0A D 0046E RDRAW * 5F 0B D 004BE RESET * 5F 0C D 0045E RMOVE * 5F 0D D 0047E SETORG d00008 NIBASC 'PLOTLEX ' Filename d00018 CON(4) #E208 File type d0001C NIBHEX 0 Flags d0001D NIBHEX 0 Copy code d0001E NIBHEX 3171 Creation time d00022 NIBHEX 814098 Creation date d00028 REL(5) 006DA FILEND *0002C ---------- File header end *0002D --LEX header-- d0002D CON(2) #5F LEX ID d0002F CON(2) #01 Lowest token d00031 CON(2) #0D Highest token d00033 CON(5) #00000 NO linked LEX d00038 NIBHEX F NO speed table d00039 CON(4) #0083 Offset to text table d0003D CON(4) #0000 NO message table d00041 CON(5) #00000 NO poll handler *00046------MAIN TABLE------ *00046 d00046 CON(3) #000 Offset to text d00049 REL(5) 0048E COLOR execution code d0004E NIBHEX D char. nib *0004F d0004F CON(3) #00D Offset to text d00052 REL(5) 0049E CSIZE execution code d00057 NIBHEX D char. nib *00058 d00058 CON(3) #01A Offset to text d0005B REL(5) 0044E DRAW execution code d00060 NIBHEX D char. nib *00061 d00061 CON(3) #025 Offset to text d00064 REL(5) 004AE HOME execution code d00069 NIBHEX D char. nib *0006A d0006A CON(3) #030 Offset to text d0006D REL(5) 004E8 LABEL execution code d00072 NIBHEX D char. nib *00073 d00073 CON(3) #03D Offset to text d00076 REL(5) 00545 LDIR execution code d0007B NIBHEX D char. nib *0007C d0007C CON(3) #048 Offset to text d0007F REL(5) 00555 LTYPE execution code d00084 NIBHEX D char. nib *00085 d00085 CON(3) #055 Offset to text d00088 REL(5) 0043E MOVE execution code d0008D NIBHEX D char. nib *0008E d0008E CON(3) #060 Offset to text d00091 REL(5) 00565 PLOTTER execution code d00096 NIBHEX D char. nib *00097 d00097 CON(3) #071 Offset to text d0009A REL(5) 0046E RDRAW execution code d0009F NIBHEX D char. nib *000A0 d000A0 CON(3) #07E Offset to text d000A3 REL(5) 004BE RESET execution code d000A8 NIBHEX D char. nib *000A9 d000A9 CON(3) #08B Offset to text d000AC REL(5) 0045E RMOVE execution code d000B1 NIBHEX D char. nib *000B2 d000B2 CON(3) #098 Offset to text d000B5 REL(5) 0047E SETORG execution code d000BA NIBHEX D char. nib *000BA---MAIN TABLE END--- *000BB---Text table--- *000BB d000BB CON(1) #9 d000BC NIBASC 'COLOR' d000C6 CON(2) #01 Token *000C8 d000C8 CON(1) #9 d000C9 NIBASC 'CSIZE' d000D3 CON(2) #02 Token *000D5 d000D5 CON(1) #7 d000D6 NIBASC 'DRAW' d000DE CON(2) #03 Token *000E0 d000E0 CON(1) #7 d000E1 NIBASC 'HOME' d000E9 CON(2) #04 Token *000EB d000EB CON(1) #9 d000EC NIBASC 'LABEL' d000F6 CON(2) #05 Token *000F8 d000F8 CON(1) #7 d000F9 NIBASC 'LDIR' d00101 CON(2) #06 Token *00103 d00103 CON(1) #9 d00104 NIBASC 'LTYPE' d0010E CON(2) #07 Token *00110 d00110 CON(1) #7 d00111 NIBASC 'MOVE' d00119 CON(2) #08 Token *0011B d0011B CON(1) #D d0011C NIBASC 'PLOTTER' d0012A CON(2) #09 Token *0012C d0012C CON(1) #9 d0012D NIBASC 'RDRAW' d00137 CON(2) #0A Token *00139 d00139 CON(1) #9 d0013A NIBASC 'RESET' d00144 CON(2) #0B Token *00146 d00146 CON(1) #9 d00147 NIBASC 'RMOVE' d00151 CON(2) #0C Token *00153 d00153 CON(1) #B d00154 NIBASC 'SETORG' d00160 CON(2) #0D Token d00162 NIBHEX 1FF Text table end *00164---------- o00165 GOVLNG #1AF01 =MGOSUB o0016C GOVLNG #18651 =D1=AVE o00173 GOVLNG #0369D =NUMCK o0017A P= 0 0017C LCHEX F1 =tCOMMA 00180 ?C=A B 00183 RTNYES 00185 RTN *00187 PLOTTER parse routine o00187 GOSUB 005E5 =JUMPER 0018B CON(5) #07468 IL=PRNTSp 00190 RTN *00192 RESET parse routine o00192 GOSBVL #02C2A =WRDSCN 00199 CON(6) #095FEF PLOTTER 0019F REL(3) 001AB 001A2 CON(2) #00 token table end 001A4 GOVLNG #03035 =REST* o001AB RTNCC *001AD DRAW, RDRAW, MOVE, RMOVE parse routine o001AD GOSUB 00173 to GOVLNG #0369D =NUMCK 001B1 GOSUB 0017A 001B5 GONC 001CF to GOVLNG #02E3F =IVPARe *001B8 COLOR, CSIZE, LDIR, LTYPE parse routine o001B8 GOVLNG #02A6E =FIXP *001BF HOME, SETORG parse routine o001BF RTNCC *001C1 LABEL parse routine o001C1 GOSBVL #036BA =STRGCK 001C8 GOVLNG #03172 =RESPTR o001CF GOVLNG #02E3F =IVPARe *001D6 PLOTTER decompile routine o001D6 GOSUB 005E5 =JUMPER 001DA CON(5) #07B3E IL=PRNTSd 001DF RTN *001E1 RESET decompile routine o001E1 ST=0 9 001E4 GOSBVL #05199 =GTEXT+ 001EB GOVLNG #05300 =OUTEL1 *001F2 COLOR, CSIZE, DRAW, LABEL, LDIR decompile routine *001F2 LTYPE, MOVE, RDRAW, RMOVE decompile routine o001F2 GOVLNG #05493 =FIXDC *001F9 HOME, SETORG decompile routine o001F9 GOVLNG #05303 =OUTELA o00200 GOSBVL #0E910 =ARGST- 00207 GOC 0023B 0020A D1=D1+ 16 0020D LCHEX 003 00212 A=A+1 XS 00215 A=A-1 XS 00218 GOC 00220 0021B ?C<=A X 0021E GOYES 0023B o00220 B=A S 00223 GOSBVL #12AE2 =RJUST 0022A C=A W 0022D GOSBVL #1B41E =CSRC4 00234 C=B S 00237 SETHEX 00239 RTN o0023B LCHEX 000B eInvalid Arg o00241 GOVLNG #0939A =BSERR o00248 R2=C 0024B ST=0 6 0024E ?C=0 S 00251 GOYES 0025E 00253 LCHEX 2D 00257 GOSUB 002AE 0025B C=R2 o0025E SETHEX 00260 ST=0 4 00263 P= 5 00265 LCHEX 2 o00268 CSL W 0026B P= 0 0026D CPEX 6 00271 C=P 5 00275 R2=C 00278 ?C#0 S 0027B GOYES 00282 0027D ?ST=0 4 00280 GOYES 00294 o00282 ST=1 4 00285 P= 0 00287 LCHEX 3 0028A CSLC 0028D GOSUB 002AE 00291 C=R2 o00294 P= 5 00296 C=C-1 P 00299 GONC 00268 0029C P= 0 0029E ?ST=1 4 002A1 RTNYES 002A3 LCHEX 30 002A7 GONC 002AE o002AA LCHEX 2C o002AE GOSUB 005E5 =JUMPER 002B2 CON(5) #06AAE IL=PUTD 002B7 RTNNC o002BA ?P= 0 002BD GOYES 00315 002BF ?P= 1 002C2 GOYES 00315 002C4 ?P= 2 002C7 GOYES 00315 002C9 ?P# 4 002CC GOYES 0030F 002CE GOSUB 005E5 =JUMPER 002D2 CON(5) #03B62 IL=GETMBX 002D7 ?ST=0 12 002DA GOYES 002FC 002DC RSTK=C 002DE CD0EX 002E1 D0=(5) #2F442 RAM=ATNFLG 002E8 C=DAT0 S 002EC D0=C 002EF C=RSTK 002F1 ?C=0 S 002F4 GOYES 002FC 002F6 C=C+1 S 002F9 GONC 0030D o002FC GOSUB 005E5 =JUMPER 00300 CON(5) #06791 IL=GETERR 00305 GONC 0030D 00308 ?P# 4 0030B GOYES 00315 o0030D P= 4 o0030F C=P 0 00313 P= 3 o00315 C=P 1 00319 P= 2 0031B LCHEX FF 0031F P= 0 00321 GOTO 00241 to GOVLNG #0939A =BSERR o00325 GOSUB 00577 00329 GOSUB 00422 0032D C=RSTK 0032F D1=C 00332 C=DAT1 A 00335 GOSUB 002AE o00339 GOTO 003EE o0033D GOSUB 00165 to GOVLNG #1AF01 =MGOSUB 00341 CON(5) #0F186 =EXPEXC 00346 GOSUB 0016C to GOVLNG #18651 =D1=AVE 0034A GOSUB 00200 0034E R3=C 00351 GOSUB 00577 00355 GOSUB 00403 00359 C=RSTK 0035B D1=C 0035E C=DAT1 A 00361 GOSUB 002AE 00365 C=R3 00368 GOSUB 00248 0036C ?ST=1 5 0036F GOYES 00339 00371 LCHEX 0D 00375 GOSUB 002AE 00379 LCHEX 11 0037D GOTO 003F2 o00381 GOSUB 00165 to GOVLNG #1AF01 =MGOSUB 00385 CON(5) #0F186 =EXPEXC 0038A GOSUB 0016C to GOVLNG #18651 =D1=AVE 0038E GOSUB 00200 00392 R3=C 00395 GOSUB 00577 00399 GOSUB 00422 0039D C=RSTK 0039F D1=C 003A2 C=DAT1 A 003A5 GOSUB 002AE 003A9 GOTO 003E7 o003AD GOSUB 00165 to GOVLNG #1AF01 =MGOSUB 003B1 CON(5) #0F186 =EXPEXC 003B6 GOSUB 0016C to GOVLNG #18651 =D1=AVE 003BA GOSUB 00200 003BE R3=C 003C1 GOSUB 00200 003C5 R4=C 003C8 GOSUB 00577 003CC GOSUB 00422 003D0 C=RSTK 003D2 D1=C 003D5 C=DAT1 A 003D8 GOSUB 002AE 003DC C=R4 003DF GOSUB 00248 003E3 GOSUB 002AA o003E7 C=R3 003EA GOSUB 00248 o003EE LCHEX 0D o003F2 GOSUB 002AE 003F6 GOSUB 005E5 =JUMPER 003FA CON(5) #01022 IL=PREND 003FF GOTO 005DE to GOVLNG #08A48 =NXTSTM o00403 GOSUB 00414 00407 ?ST=1 5 0040A RTNYES 0040C LCHEX 12 00410 GOTO 002AE o00414 D1=(5) #2F6F7 RAM=USER FLAGS 56-59 0041B C=DAT1 B 0041E ST=C 00420 RTN o00422 GOSUB 00403 00426 GOSUB 00414 0042A ST=1 5 0042D C=ST 0042F DAT1=C B 00432 RTN d00434 REL(5) 001F2 Offset to MOVE decompile routine d00439 REL(5) 001AD Offset to MOVE parse routine *0043E MOVE entry point o0043E GOSUB 003AD 00442 NIBASC 'M' d00444 REL(5) 001F2 Offset to DRAW decompile routine d00449 REL(5) 001AD Offset to DRAW parse routine *0044E DRAW entry point o0044E GOSUB 003AD 00452 NIBASC 'D' d00454 REL(5) 001F2 Offset to RMOVE decompile routine d00459 REL(5) 001AD Offset to RMOVE parse routine *0045E RMOVE entry point o0045E GOSUB 003AD 00462 NIBASC 'R' d00464 REL(5) 001F2 Offset to RDRAW decompile routine d00469 REL(5) 001AD Offset to RDRAW parse routine *0046E RDRAW entry point o0046E GOSUB 003AD 00472 NIBASC 'J' d00474 REL(5) 001F9 Offset to SETORG decompile routine d00479 REL(5) 001BF Offset to SETORG parse routine *0047E SETORG entry point o0047E GOSUB 00325 00482 NIBASC 'I' d00484 REL(5) 001F2 Offset to COLOR decompile routine d00489 REL(5) 001B8 Offset to COLOR parse routine *0048E COLOR entry point o0048E GOSUB 0033D 00492 NIBASC 'C' d00494 REL(5) 001F2 Offset to CSIZE decompile routine d00499 REL(5) 001B8 Offset to CSIZE parse routine *0049E CSIZE entry point o0049E GOSUB 0033D 004A2 NIBASC 'S' d004A4 REL(5) 001F9 Offset to HOME decompile routine d004A9 REL(5) 001BF Offset to HOME parse routine *004AE HOME entry point o004AE GOSUB 00325 004B2 NIBASC 'H' d004B4 REL(5) 001E1 Offset to RESET decompile routine d004B9 REL(5) 00192 Offset to RESET parse routine *004BE RESET entry point o004BE GOSUB 00577 004C2 GOSUB 00414 004C6 ST=0 5 004C9 C=ST 004CB DAT1=C B 004CE LCHEX 12 004D2 GOSUB 002AE 004D6 LCASC 'A' 004DA GOTO 003F2 d004DE REL(5) 001F2 Offset to LABEL decompile routine d004E3 REL(5) 001C1 Offset to LABEL parse routine *004E8 LABEL entry point o004E8 GOSUB 00165 to GOVLNG #1AF01 =MGOSUB 004EC CON(5) #0F186 =EXPEXC 004F1 GOSUB 00577 004F5 GOSUB 00422 004F9 LCASC 'P' 004FD GOSUB 002AE 00501 GOSUB 0016C to GOVLNG #18651 =D1=AVE 00505 GOSBVL #1B38E =REV$ 0050C D1=D1+ 1 0050F C=DAT1 S 00513 ?C#0 S 00516 GOYES 00537 00518 D1=D1+ 1 0051B A=DAT1 A 0051E ASRB 00521 D1=D1+ 14 00524 ST=0 8 00527 GOSUB 005E5 =JUMPER 0052B CON(5) #0691A IL=WRITIT 00530 GONC 00537 00533 GOTO 002BA o00537 GOTO 003EE d0053B REL(5) 001F2 Offset to LDIR decompile routine d00540 REL(5) 001B8 Offset to LDIR parse routine *00545 LDIR entry point o00545 GOSUB 00381 00549 NIBASC 'Q' d0054B REL(5) 001F2 Offset to LTYPE decompile routine d00550 REL(5) 001B8 Offset to LTYPE parse routine *00555 LTYPE entry point o00555 GOSUB 00381 00559 NIBASC 'L' d0055B REL(5) 001D6 Offset to PLOTTER decompile routine d00560 REL(5) 00187 Offset to PLOTTER parse routine *00565 PLOTTER entry point o00565 LCHEX 2F7A2 RAM=IS-PLT 0056C GOSUB 005E5 =JUMPER 00570 CON(5) #010D6 IL=?????? 00575 RTN o00577 D0=(5) #2F7A2 RAM=IS-PLT 0057E C=DAT0 7 00582 D0=(4) #F883 00588 DAT0=C 7 0058C D0=(4) #F870 00592 LCHEX 3F pPLOT ? 00596 DAT0=C B 00599 GOSBVL #12337 =POLL 005A0 CON(2) #0E 005A2 GOC 005B0 005A5 ?XM=0 005A8 GOYES 005B4 005AA LCHEX 0023 eXWORD Not Found o005B0 GOTO 00241 to GOVLNG #0939A =BSERR o005B4 D1=(5) #2F872 RAM=SCRATCH 005BB C=DAT1 A 005BE D1=C 005C1 D1=D1- 5 005C4 A=DAT1 A 005C7 LCHEX 00005 005CE ?C=A A 005D1 GOYES 005DE to GOVLNG #08A48 =NXTSTM 005D3 GOSUB 005E5 =JUMPER 005D7 CON(5) #03B62 IL=GETMBX 005DC RTNCC o005DE GOVLNG #08A48 =NXTSTM *005E5 =JUMPER 005E5 RSTK=C 005E7 CD1EX 005EA D1=(5) #2F7F0 RAM=SNAPBF 005F1 DAT1=C A 005F4 D1=(2) #F5 005F8 C=RSTK 005FA DAT1=C W 005FE D1=(4) #F805 00604 DAT1=A W 00608 D1=(2) #15 0060C C=B A 0060E CPEX 5 00612 P= 6 00614 C=0 P 00617 GONC 0061D 0061A C=C-1 P o0061D P= 7 0061F C=0 P 00622 C=C-1 P 00625 DAT1=C 8 00629 SETHEX 0062B P= 0 0062D LCHEX BFC =bLEX 00632 GOSBVL #118BA =I/OFND 00639 GONC 0066E 0063C LCHEX FF 00640 B=C A 00642 A=0 A 00644 A=A+1 A o00646 C=DAT1 6 0064A ?C=0 B 0064D GOYES 0066E 0064F ?B#C B 00652 GOYES 00668 00654 CSR W 00657 CSR A 00659 ?C>A B 0065C GOYES 00668 0065E CSR A 00660 CSR A 00662 C=C-A B 00665 GONC 0067B o00668 D1=D1+ 11 0066B GONC 00646 o0066E LCHEX 0023 eXWORD Not Found 00674 GOVLNG #0939A =BSERR o0067B D1=D1+ 6 0067E C=DAT1 A 00681 B=C A 00683 C=RSTK 00685 D1=C 00688 D1=D1+ 5 0068B CD1EX 0068E RSTK=C 00690 C=DAT1 A 00693 C=C+B A 00695 RSTK=C 00697 D1=(5) #2F805 RAM=SNAPBF 0069E A=DAT1 W 006A2 D1=D1+ 16 006A5 C=DAT1 8 006A9 B=C A 006AB P= 7 006AD C=C+1 P 006B0 GOC 006B5 006B3 SETDEC o006B5 P= 6 006B7 ?C#0 P 006BA GOYES 006BC o006BC P=C 5 006C0 D1=(4) #F7F5 006C6 C=DAT1 W 006CA D1=(2) #F0 006CE RSTK=C 006D0 C=DAT1 A 006D3 D1=C 006D6 C=RSTK 006D8 RTN d006DA FILEND * DISASM started 89/04/18 17:29:03 * DISASM finished 89/04/18 17:42:32